Private Sub EnlargePicture(ByVal pic_from As PictureBox, ByVal pic_to As PictureBox, ByVal from_xmin As Single, ByVal from_ymin As Single, ByVal from_wid As Single, ByVal from_hgt As Single, ByVal to_xmin As Single, ByVal to_ymin As Single, ByVal to_wid As Single, ByVal to_hgt As Single)
' Save mapping values.
FromXmin = from_xmin
FromYmin = from_ymin
ToXmin = to_xmin
ToYmin = to_ymin
XScale = to_wid / (from_wid - 1)
YScale = to_hgt / (from_hgt - 1)
' Transform the image.
TransformImage pic_from, pic_to
End Sub
' Map the output pixel (ix_out, iy_out) to the input
' pixel (x_in, y_in).
Private Sub MapPixel(ByVal ix_out As Single, ByVal iy_out As Single, ByRef x_in As Single, ByRef y_in As Single)
x_in = FromXmin + (ix_out - ToXmin) / XScale
y_in = FromYmin + (iy_out - ToYmin) / YScale
End Sub
' Transform the image.
Private Sub TransformImage(ByVal pic_from As PictureBox, ByVal pic_to As PictureBox)